home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 18
/
AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso
/
Forum
/
MichaelRoth
/
3-3-99
/
code
/
SUB.SUB
< prev
next >
Wrap
Text File
|
1998-08-31
|
808b
|
23 lines
BTB_ADD
; A0 KlarTxt
; A1 Key
; D0 KLTXT Länge
; D1 Key länge
movem.l d2-d7/a2-a6,-(sp)
lea (a0,d0),a2 ; Endadresse des Buffers berechnen
lea (a1,d1),a3 ; """" des Keys
.loop1
move.b (a0),d4
sub.b (a1)+,d4
move.b d4,(a0)+
cmp.l a1,a3 ; Prüfen ob Key am Ende
bhi.s .goon ; wenn nein weiter
move.l memblock2,a1 ; ansonsten neu laden
.goon ;
cmp.l a0,a2 ; Prüfen ob Buffer am Ende
bhi.s .loop1 ; Nein -> nächste schleife
movem.l (sp)+,d2-d7/a2-a6
rts